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DISCLAIMER 



Although each program has been tested by its contributor, no 
warranty, express or implied, is made by the contributor or 
1620 USERS Group, as to the accuracy and functioning of the 
program and related program material, nor shall the fact of 
distribution constitute any such warranty, and no responsibility 
is assumed by the contributor or 1620 USERS Group, in con- 
nection therewith. 



Modifications or revisions to this program, as they occur, 
will be announced in the appropriate Catalog of Programs 
for IBM Data Processing Systems. When such an announce- 
ment occurs, users should order a complete new program 
from the Program Information Department. 



1620 USERS GROUP PROGRAM REVIEW AND EVALUATION 
(fill out in typewriter or pencil, do not use ink) 

Program No. ■ Date - ■ . 

Program Name: ■ 

1. Does the abstract adequately describe what the program is and what Yes No, 

it does? 

Comment ; 

2. Does the program do what the abstract says ? Yes No, 

C omment 

3. Is the Description clear, understandable, and adequate ? Yes No, 
Comment, ■• 

4. Are the Operating Instructions understandable and in sufficient detail? Yes No, 

Comment , ; ___ 

Are the Sense Switch options adequately described (if applicable)? Yes No, 

Are the mnemonic labels identified or sufficiently understandable? Yes No, 

Comment ' 

5. Does the source program compile satisfactorily (if applicable)? Yes No, 

Comment ■ 

6. Does the object program run satisfactorily? Ye s No 
Comment, 

7. Number of test cases run . Are any restrictions as to data, 

size, range, etc. covered adequately in description? Yes No, 

Commen t 

8. Does the Program Meet the minimal standards of the 1620 Users 

Group? Yes No, 

Comment 

9. Were all necessary parts of the program received? Yes No, 

Comment ; 

10. Please list on the back any suggestions to improve the usefulness of the program. 
These will be passed onto the author for his consideration. 

Please return to: Your Name 



Mr. Richard L. Pratt Company 
Data Corporation 

7500 Old Xenia Pike ' Address 
Dayton, Ohio 45432 



User Group Code 



THIS REVIEW FORM IS PART OF THE 1620 USER GROUP ORGANIZATION'S PROGRAM 
REVIEW AND EVALUATION PROCEDURE. NONMEMBERS ARE CORDIALLY INVITED 
TO PARTICIPATE IN THIS EVALUATION. 



11/09/64 
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Program Abstract 

Title (If subroutine state in Title ) Plot Subroutine for FORTRAN with Format 

. ■ Subject Classification 1.6 



Author; Organization: John H. Reynolds. Sprague Electric Compa ny; form ally, Worcester 
Polytechnic Institute 

Direct Inquires to: 

Nam e Kurt V. Schoeni, Senior Mathematician Addr e s s Sprague ELecttic Co. 

i4»T. n h«.n Rt.^t., vn-r+y, Afirnngj Massachusetts Phon e Extension 2327 

Pur pose/Descript ion: This subroutine produces output on the on line typewriter 

rapidly and in graphical form. It plots up to six functions with an accuracy 

up to 0.7%. 



Mathematical Method: fl A. 

Restrictions, Range: First two statements of source program are specified. The 
function most be normalized so that its y^ yp fi \s within t ihfr n iB Pher of spaces 
available on the typewriter. Hegative numbers are accepted but are not plotted. 



Storage Requirements: flip THyitn 

Equipment Specifications: 

Memory 20K X 40K 60K K Automatic Divide: Yes No x. 

Indirect Addressing: Yes No x Other Special Features Required 



Additional Remarks ( Include at author's- descretion: Language; Fixed/Float; Relocat- 
ability) (Optional: Running time; Approximate numbers of times run successfully; Pro- 
gramming Hours ) 

Lftigungf t SPS (Card) 

Floating Point 

Relocatable 

Running Time; Approximately 2 /3 the time required for « aimiiar Fortran 

print statement. • ■ 
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Description of Program 

The plot subroutine will plot up to six functions of a single independent 
variable on the on-line typewriter. The independent variable must be changed 
by constant increments. The function must be normalised so that its range 
does not exceed the number of spaces in the plot area. This places an upper 
limit of '_86. on the normalized function. The function may be any negative 
number. But, in this case it will not be plotted. 

The subroutine is called by a statement in the PORTRAIT Bource program 
which has the form: 

Y = ELT(X) 

The argument, X, may be any floating point constant, variable, or expression. 
The subroutine rounds off the argument to its integral value. The symbol 
associated with this statement is typed If spaces to the right of margin of 
the plot area. W is the rounded off value of the argument. The symbol is 
chosen by the programmer. Y is also set equal to X. 

Several functions may be plotted by the use of multiple plot statements. 
Each statement is independent of the others. They may be placed anywhere in 
the program and need not be consecutive. The arguments do not need to be 
ordered. 

The subroutine will round off the argument and store it. If there are 
further functions to be plotted, it will return to the next statement. If 
there are no further functions, the subroutine will plot the entire group in 
one continuous operation. 

The subroutine does not produce a carriage return. Therefore, the last 
plot statement must be preceeded by a print statement. The format of the print 
statement must produce blank spaces to the right of any numerical output. If 
no numerical output is required, a statement of the form: 

PRIST H, 

will cause a carriage return. 

The first two statements in the source program have the form: 
i*1 M = j 

^ FORMAT( jHS jSgSj . . . S j ) 

where n 1 and n g are statement numbers. M is a fixed point variable which is 

set equal to the number of function to be plotted. M may be modified later 
in the program but, this may not be done within any group of plot statements. 
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The format statement defines the symbols to be plotted. They may be any 
alphanumeric symbols except the period and close parenthesis. The symbols may 
be changed after the object program is loaded by using this format in an 
input statement. However, this must be done before the first plot statement 
is executed. 



Operating Instructions 

Tab stops must be set every ten spaces to the right of the margin of 
the plot area. 



mo 
Qo 
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om 
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Sanple Problem 



ENTER SOURCE PROGRAM, PUSH START 



N-1 

FCRMAT(3HISC) 
ACCEPT 8,X 
FCRMAT(FIO.I) 
DUM=PLT(X) 

|F(SENSE SWITCH 1)2,3 
N=3 

DC 4 M=1 .361.10 
AXIS=PLT(25.) 

S=PLT( 25 ,*S I N(X*.01 745 )+25 . ) 

MPR=M-1 

PRINT 7 ,MPR 

FCRMAT(I5.5X) 

C=PLT( 25 .*COS(X*.Ol 745 )+25 . ) 

STCP 

END 



58300 
58324 
(5835^ 
58378 
58400 
58424 
58444 
58468 
58480 
58504 
58552 
58636 
58672 
58696 
58736 
58856 
58904 

PRT, SW 1 ONFOR SYMBOL TABLE, PUSH START 
SW 1 OFF TO IGNORE SUBROUTINES, PUSH START 
1620 FORTRAN SUBR. 9/30/61 



PROCESSING COMPLETE 
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25.00«S 
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02150 


A 
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TF 


03060SUB 


SM 


03070 


TF 


03071 


TF 


03080 


BD 



5000 

X+7,3*12,10 
DCLCCP,N,0 
LCCP.N.O 
DCLCCP, 1,010 
TCFACI-1 ,X 
TCFACC+6,*+5*12,17 
TC FACC+1,9 
FADCUT+1 ,9 
FADCUT+6,*+6*12,17 
TCFACI 

FADIN-1 , CONST, 17 
FADIN.FAC-2 
LCCP, 1,010 
FAC-3,,10 
*-1 .FAC-2,0 
*-13,5,010 
*+24, ,0 
FAC-3,1 JO 
FAC-4 

*+l8,2,010 
XSAVE, FAC-3 
END-24, DCLCCP, 01 
*-l8,XSAVE,07 
CUTPUT-2,CLEAR-2,1 
DC,N,0 

*+3*12+11 , XSAVE , 07 

DC, 1 ,010 

*+23,2,010 

XTEMP, XSAVE, 07 

*+24,XTEMP,01 

PRINT-12, ,0 

SUB.XTEMP-1 ,01 

LCCP, 1,010 

X+4,7,210 

SUB-6,CUTPUT,07 

SUB-1 , SYMBCL+XSAVE-2 , 07 

SUB-1 ,TRANS-3*12-1 ,01 

*+ 24+6, XTEMP, 01 

*+18,XTEMP,01 

CUTPUT , SYMBCL+XSAVE-2 

XTEMP, 10,010 

*+l8,TRANS-3*12-1 ,01 

XSAVE, XTEMP, 1 

SETUP+24,DC,01 



05000 
05000 11 
05012 56 
05024 26 
05036 T2 
05048 26 
05 060 1 5 
05072 15 
05084 15 
05096 15 
05108 49 
05120 15 
05132 44 
05144 T2 
05156 3.2 
05168 25 
05180 T4 
05192 4"7 
05204 11 
05216 32 
05228 12 
05240 26 
05252 43 
05 2 64 T6 
05276 3.T 
05288 26 
05300 T6 
05312 T2 
05324 T2 
05336 26 
05348 54" 
05360 42 
05372 53 
05384 T2 
05396 3.2 
05408 16 
05420 T6 
05432 22 
05444 5T 
0545 6 2T 
05468 26 
05480 T2 
05492 25 
05504 25 
05516 53 



19876 
05119 
05371 
05119 
01237 
01304 
01299 
01 195 
01200 
01238 
00517 
00518 
05371 
00057 
05167 
05 167 
05216 
00057 
00056 
05246 
08344 
05756 
05246 
00077 
05 5 8 7 
05347 
05587 
05347 
05671 
05372 
0551 6 
05480 
05371 
T9873 
05474 
05479 
05479 
05474 
05474 
00079 
05671 
05510 
08344 
05312 



00036 
19849 
19849 
00001 
19869 
05120 
00009 
00009 
05168 
00000 
05407 
0005.8 
00001 
00050 
00058 
00005 
01300 
00001 
00000 
OOOI52 
00057 
05119 
08344 
05787 
19849 
08344 
00001 
00002 
08344 
05671 
00000 
056Z0 
00001 

00007 

00079 
T6686 
05347 
05671 
05671 
16686 
000T0 

05347 
05671 
05587 



03090PRINT 

03091 

03092 

03093 

03094 

03095 

03095 

03096 

03097 

03098 

03099 

03010 

03115 

03120 

03130 

03140 

03141 

03150 

03151 

03160 

03161 

03170END 

03180CLEAR 

031 90DCLCCP 

03200LCCP 

0401 ODC 

04020CCNST 

04030X 

0405 ON 

04140XTEMP 

04060XSAVE 

04070CUTPUT 

04080TCFAC I 

04090TCFACC 

04100FADIN 

04110FADCUT 

04120FAC 

041 30SYMBCL 

04150 



BNF *+15*12,X+4,0 

TFM *+23,CUTPUT+17,07 

BD *+36,CUTPUT+17,07 

SM *-1,2,010 

B *-24,,0 

CM *-25,92,07 

BNL *+5*12,.0 

AM *-4*12-1,3,010 

TF *+l8 *-5*12-1.01 

TR CUTPUT+1 7 »CUTPUT+20 

BD *+24,LCCP,01 

CF X+4 

WATY CUTPUT 

TR CUTPUT-2,CLEAR-2,1 

BNF *+36,X+4,0 

TBTY 

CF X+4 

BD SETUP, LCCP, 01 

SM X+7,3*12,10 

TDM TCFACC+1,2 

TDM FADCUT+1, 2 

B TCFAC I 

DAC 11, @,*-2 

DS ,READIN+6*12+11 

DS .TRANS-13 

DS ,PRINT+5*12-1 

DS .TRANS+23 

DS ,19869 

DS ,19849 

DS ,PRINT+12*12-1 

DS ,8344 

DS ,79 

DS ,1238 

DS ,1298 

DS ,518 

DS ,1194 

DS ,60 

DS ,8344 

DEND 5000 



05 5 2 8 
05540 
05552 
05564 
05576 
05588 
05600 
05612 
05624 
05636 
05648 
05660 
05672 
05684 
05696 
05708 
05720 
05732 
05744 
05756 
05768 
05780 
05789 
05119 
05371 
05587 
05407 
19869 
19849 
05671 
08344 
00079 
01238 
01298 
00518 
01194 
00060 
08344 
05000 



54 05708 
T6 05563 
53 05588 
T2 05563 
59 05552 
T4 05563 
56 05660 
Tl 05563 
IE 05642 
31 00096 
4j 05672 

33 19873 
39 00079 
3T 00077 
44 05732 

34 00000 
21 19873 
43 05288 
12 19876 
15 01299 
15 01195 
49 01238 
0001 1X2 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
0000Q„ 
00000 
00000 
00000 
00000 
00000 



19873 
50096 
60096 
00002 
00000 

60092 
01300 
00063 
05563 

00099 
05 3 71 
00000 
00100 

05787 

19873 
00108 
00000 
05321 
00036 
00002 
00002 
00000 
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Core Layout 

The location of the subroutine is determined by the FORTRAN conpiler . 
The syXoS star? at location 8 3 U 3 and continue to higher order ^cations. 
Se nuSrs to^e plotted are stored in two digit fields starting at location 
83^2 and continuing to lover order locations. 

Adding the Subroutine to the System 

The symbols, TOFACI and TOFACO, in the program list refer respect ively 
to the locations of first executible statement and the exit statement of the 
TOFAC subroutine . FADM and FADOUT are the locations of the corresponding 
SemSs of the FMsubroutine . The location of these statements in users 
system should be determined. 

X is the location of the address of the argument. It is found from the 
formula: 

X = 19989 " 20 (NN - 1) 
•where NN is the plot subroutine number. 

B is the address of the second item in the symbol table following the 
subroutine linkages. It is found from the formula: 

M = 19989 - 20 • MM 
where MM is the subroutine number of the last subroutine in the system. 
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